0 IFX>.THEN5
1 POKE53280,.:POKE53281,.
2 PRINT"[147]    [208]LEASE WAIT WHILE [201] GATHER MY"
3 PRINT"    DECIPHERING TOOLS..."
5 IFX=0THENPOKE56,150:CLR:X=1:LOAD"UNPACKER",8,1
6 IFX=1THENX=2:LOAD"JUMBLE.TITLE.SHP",8,1
7 IFX=2THENX=3:LOAD"BLOAD.O",8,1
10 POKE249,224:POKE250,204:                 REM SCREEN/COLOR
20 POKE251,0:POKE252,64:                    REM SHP BUFFER
30 POKE253,0:POKE254,0:                     REM   X-POS,Y-POS
32 PRINT"[147]"
35 POKE53280,1: REM  BORDER TO WHITE
50 SYS51456:    REM  UNPACK NORMAL SHP
60 SYS51459:    REM  SHOW SCREEN
65 F$="KOJ.PRG"
70 POKE780,0:SYS65424:LOADF$,8
75 END
80 POKE648,80:PRINT"LOADF$,8"
81 PRINT"SYS51459:POKE648,4:RUN"
83 POKE631,13:POKE632,13:POKE198,2:END